8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / RLE.BAS < prev next >
Unknown | 2019-04-13 | 1.9 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
`100%`	detectItEasy	Format: plain text[CR]	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 31 30 20 52 45 4d 20 | 20 20 20 20 52 4c 45 2e |.10 REM |    RLE.|
|00000010| 42 41 53 0d 32 30 20 52 | 45 4d 20 20 20 20 20 20 |BAS.20 R|EM      |
|00000020| 54 48 49 53 20 50 52 4f | 47 52 41 4d 20 41 4c 4c |THIS PRO|GRAM ALL|
|00000030| 4f 57 53 20 52 55 4e 20 | 4c 45 4e 47 48 54 20 45 |OWS RUN |LENGHT E|
|00000040| 4e 43 4f 44 45 44 20 46 | 49 4c 45 53 20 44 4f 57 |NCODED F|ILES DOW|
|00000050| 4e 4c 4f 41 44 45 44 0d | 33 30 20 52 45 4d 20 20 |NLOADED.|30 REM  |
|00000060| 20 20 20 20 46 52 4f 4d | 20 43 4f 4d 50 55 53 45 |    FROM| COMPUSE|
|00000070| 52 56 45 20 54 4f 20 42 | 45 20 44 49 53 50 4c 41 |RVE TO B|E DISPLA|
|00000080| 59 45 44 20 4f 4e 20 43 | 4f 4d 50 55 54 45 52 53 |YED ON C|OMPUTERS|
|00000090| 20 54 48 41 54 20 44 4f | 20 4e 4f 54 0d 34 30 20 | THAT DO| NOT.40 |
|000000a0| 52 45 4d 20 20 20 20 20 | 20 48 41 56 45 20 41 20 |REM     | HAVE A |
|000000b0| 56 49 44 54 45 58 20 50 | 52 4f 47 52 41 4d 2e 20 |VIDTEX P|ROGRAM. |
|000000c0| 28 4c 49 4b 45 20 4d 59 | 20 41 47 49 4e 47 20 48 |(LIKE MY| AGING H|
|000000d0| 45 41 54 48 20 48 2d 38 | 29 0d 35 30 20 52 45 4d |EATH H-8|).50 REM|
|000000e0| 0d 36 30 20 52 45 4d 20 | 20 20 20 20 54 48 49 53 |.60 REM |    THIS|
|000000f0| 20 50 52 4f 47 52 41 4d | 20 57 41 53 20 57 52 49 | PROGRAM| WAS WRI|
|00000100| 54 54 45 4e 20 46 52 4f | 4d 20 49 4e 46 4f 52 4d |TTEN FRO|M INFORM|
|00000110| 41 54 49 4f 4e 20 50 52 | 4f 56 49 44 45 44 20 49 |ATION PR|OVIDED I|
|00000120| 4e 0d 37 30 20 52 45 4d | 20 20 20 20 20 54 48 45 |N.70 REM|     THE|
|00000130| 20 43 42 49 47 20 44 4c | 33 20 44 41 54 41 42 41 | CBIG DL|3 DATABA|
|00000140| 53 45 2e 20 20 49 54 20 | 48 41 53 20 42 45 45 4e |SE.  IT |HAS BEEN|
|00000150| 20 57 52 49 54 54 45 4e | 20 55 53 49 4e 47 20 0d | WRITTEN| USING .|
|00000160| 38 30 20 52 45 4d 20 20 | 20 20 20 46 55 4e 43 54 |80 REM  |   FUNCT|
|00000170| 49 4f 4e 53 20 43 4f 4d | 4d 4f 4e 20 54 4f 20 41 |IONS COM|MON TO A|
|00000180| 4c 4d 4f 53 54 20 41 4e | 59 20 56 45 52 53 49 4f |LMOST AN|Y VERSIO|
|00000190| 4e 20 4f 46 20 4d 49 43 | 52 4f 53 4f 46 54 0d 39 |N OF MIC|ROSOFT.9|
|000001a0| 30 20 52 45 4d 20 20 20 | 20 20 42 41 53 49 43 2e |0 REM   |  BASIC.|
|000001b0| 20 20 49 54 20 41 4c 53 | 4f 20 41 53 53 55 4d 45 |  IT ALS|O ASSUME|
|000001c0| 53 20 54 48 41 54 20 54 | 48 45 20 43 4f 4d 50 55 |S THAT T|HE COMPU|
|000001d0| 54 45 52 20 48 41 53 20 | 41 20 4c 49 4e 45 0d 31 |TER HAS |A LINE.1|
|000001e0| 30 30 20 52 45 4d 20 20 | 20 20 20 44 52 41 57 49 |00 REM  |   DRAWI|
|000001f0| 4e 47 20 53 54 41 54 4d | 45 4e 54 20 41 4e 44 20 |NG STATM|ENT AND |
|00000200| 41 20 47 52 41 50 48 49 | 43 53 20 4d 4f 44 45 20 |A GRAPHI|CS MODE |
|00000210| 57 49 54 48 20 31 39 32 | 20 56 45 52 54 49 43 41 |WITH 192| VERTICA|
|00000220| 4c 0d 31 31 30 20 52 45 | 4d 20 20 20 20 20 50 49 |L.110 RE|M     PI|
|00000230| 58 45 4c 53 20 42 59 20 | 32 35 36 20 48 4f 52 49 |XELS BY |256 HORI|
|00000240| 5a 4f 4e 54 41 4c 20 50 | 49 58 45 4c 53 2e 0d 31 |ZONTAL P|IXELS..1|
|00000250| 32 30 20 52 45 4d 0d 31 | 33 30 20 52 45 4d 20 20 |20 REM.1|30 REM  |
|00000260| 20 20 20 41 53 20 54 48 | 45 20 4c 49 4e 45 20 43 |   AS TH|E LINE C|
|00000270| 4f 4d 4d 41 4e 44 53 20 | 4d 41 59 20 42 45 20 44 |OMMANDS |MAY BE D|
|00000280| 49 46 46 45 52 45 4e 54 | 20 57 49 54 48 20 45 41 |IFFERENT| WITH EA|
|00000290| 43 48 20 43 4f 4d 50 55 | 54 45 52 0d 31 34 30 20 |CH COMPU|TER.140 |
|000002a0| 52 45 4d 20 20 20 20 49 | 54 20 57 49 4c 4c 20 42 |REM    I|T WILL B|
|000002b0| 45 20 4e 45 43 45 53 53 | 41 52 59 20 46 4f 52 20 |E NECESS|ARY FOR |
|000002c0| 54 48 45 20 44 4f 57 4e | 4c 4f 41 44 45 52 20 28 |THE DOWN|LOADER (|
|000002d0| 54 48 41 54 27 53 20 59 | 4f 55 29 20 54 4f 0d 31 |THAT'S Y|OU) TO.1|
|000002e0| 35 30 20 52 45 4d 20 20 | 20 20 41 44 44 20 54 48 |50 REM  |  ADD TH|
|000002f0| 45 20 50 52 4f 50 45 52 | 20 43 4f 44 45 20 41 54 |E PROPER| CODE AT|
|00000300| 20 54 48 45 20 49 4e 44 | 49 43 41 54 45 44 20 4c | THE IND|ICATED L|
|00000310| 49 4e 45 53 2e 20 4f 4e | 45 20 4f 54 48 45 52 0d |INES. ON|E OTHER.|
|00000320| 31 36 30 20 52 45 4d 20 | 20 20 20 54 48 49 4e 47 |160 REM |   THING|
|00000330| 20 49 53 20 41 53 53 55 | 4d 45 44 2c 20 54 48 41 | IS ASSU|MED, THA|
|00000340| 54 20 49 53 20 54 48 41 | 54 20 54 48 45 20 53 43 |T IS THA|T THE SC|
|00000350| 52 45 45 4e 20 53 54 41 | 52 54 53 20 4f 55 54 0d |REEN STA|RTS OUT.|
|00000360| 31 37 30 20 52 45 4d 20 | 20 20 20 42 4c 41 43 4b |170 REM |   BLACK|
|00000370| 2e 0d 31 38 30 20 52 45 | 4d 0d 31 39 30 20 52 45 |..180 RE|M.190 RE|
|00000380| 4d 20 20 20 20 20 54 48 | 45 20 4c 49 4e 45 20 43 |M     TH|E LINE C|
|00000390| 4f 4d 4d 41 4e 44 53 20 | 41 4c 52 45 41 44 59 20 |OMMANDS |ALREADY |
|000003a0| 49 4e 20 50 4c 41 43 45 | 20 49 4e 20 54 48 49 53 |IN PLACE| IN THIS|
|000003b0| 20 50 52 4f 47 52 41 4d | 20 41 52 45 20 54 48 45 | PROGRAM| ARE THE|
|000003c0| 20 53 41 4d 45 0d 32 30 | 30 20 52 45 4d 20 20 20 | SAME.20|0 REM   |
|000003d0| 20 20 41 53 20 54 48 45 | 20 4c 49 4e 45 20 43 4f |  AS THE| LINE CO|
|000003e0| 4d 4d 41 4e 44 53 20 46 | 4f 52 20 54 48 45 20 52 |MMANDS F|OR THE R|
|000003f0| 41 44 49 4f 20 53 48 41 | 43 4b 20 4d 2d 31 30 30 |ADIO SHA|CK M-100|
|00000400| 2e 0d 32 31 30 20 52 45 | 4d 20 20 20 20 20 20 20 |..210 RE|M       |
|00000410| 20 20 20 20 20 20 4c 49 | 4e 45 28 48 4f 52 49 5a |      LI|NE(HORIZ|
|00000420| 2c 56 45 52 54 29 2d 28 | 48 4f 52 49 5a 2c 56 45 |,VERT)-(|HORIZ,VE|
|00000430| 52 54 29 0d 32 32 30 20 | 52 45 4d 20 20 20 20 20 |RT).220 |REM     |
|00000440| 42 45 20 50 52 45 50 41 | 52 45 44 20 54 4f 20 4d |BE PREPA|RED TO M|
|00000450| 4f 44 49 46 59 20 54 48 | 49 53 20 53 54 41 54 45 |ODIFY TH|IS STATE|
|00000460| 4d 45 4e 54 20 46 4f 52 | 20 59 4f 55 52 20 43 4f |MENT FOR| YOUR CO|
|00000470| 4d 50 55 54 45 52 2e 0d | 32 33 30 20 52 45 4d 0d |MPUTER..|230 REM.|
|00000480| 32 34 30 20 52 45 09 00 | 20 20 20 20 20 20 20 20 |240 RE..|        |
|00000490| 20 20 20 20 20 42 49 4c | 4c 20 45 4c 4b 49 4e 53 |     BIL|L ELKINS|
|000004a0| 20 20 20 37 31 35 35 35 | 2c 31 31 34 34 0d 32 35 |   71555|,1144.25|
|000004b0| 30 20 52 45 4d 0d 32 36 | 30 20 44 45 46 49 4e 54 |0 REM.26|0 DEFINT|
|000004c0| 20 41 2d 5a 0d 32 37 30 | 20 59 3d 30 3a 58 3d 30 | A-Z.270| Y=0:X=0|
|000004d0| 0d 32 38 30 20 4c 49 4e | 45 20 49 4e 50 55 54 20 |.280 LIN|E INPUT |
|000004e0| 22 45 4e 54 45 52 20 46 | 49 4c 45 20 4e 41 4d 45 |"ENTER F|ILE NAME|
|000004f0| 3a 20 22 3b 46 24 0d 32 | 39 30 20 4f 50 45 4e 20 |: ";F$.2|90 OPEN |
|00000500| 22 49 22 2c 31 2c 46 24 | 0d 33 30 30 20 43 4c 53 |"I",1,F$|.300 CLS|
|00000510| 3a 52 45 4d 20 20 20 20 | 48 45 52 45 20 59 4f 55 |:REM    |HERE YOU|
|00000520| 20 4d 55 53 54 20 43 4c | 45 41 52 20 53 43 52 45 | MUST CL|EAR SCRE|
|00000530| 45 4e 20 41 4e 44 20 53 | 45 54 20 31 39 32 78 32 |EN AND S|ET 192x2|
|00000540| 35 36 20 47 52 41 50 48 | 49 43 53 20 4d 4f 44 45 |56 GRAPH|ICS MODE|
|00000550| 0d 33 31 30 20 59 3d 30 | 3a 58 3d 30 0d 33 32 30 |.310 Y=0|:X=0.320|
|00000560| 20 42 24 3d 49 4e 50 55 | 54 24 28 31 2c 31 29 3a | B$=INPU|T$(1,1):|
|00000570| 49 46 20 42 24 3c 3e 43 | 48 52 24 28 32 37 29 20 |IF B$<>C|HR$(27) |
|00000580| 54 48 45 4e 20 33 32 30 | 0d 33 33 30 20 42 24 3d |THEN 320|.330 B$=|
|00000590| 49 4e 50 55 54 24 28 31 | 2c 31 29 3a 49 46 20 42 |INPUT$(1|,1):IF B|
|000005a0| 24 3c 3e 22 47 22 20 54 | 48 45 4e 20 33 32 30 0d |$<>"G" T|HEN 320.|
|000005b0| 33 34 30 20 42 24 3d 49 | 4e 50 55 54 24 28 31 2c |340 B$=I|NPUT$(1,|
|000005c0| 31 29 3a 49 46 20 42 24 | 3c 3e 22 48 22 20 54 48 |1):IF B$|<>"H" TH|
|000005d0| 45 4e 20 33 32 30 0d 33 | 35 30 20 42 3d 41 53 43 |EN 320.3|50 B=ASC|
|000005e0| 28 49 4e 50 55 54 24 28 | 31 2c 31 29 29 2d 33 32 |(INPUT$(|1,1))-32|
|000005f0| 3a 49 46 20 42 3c 30 20 | 54 48 45 4e 20 35 30 30 |:IF B<0 |THEN 500|
|00000600| 0d 33 36 30 20 58 3d 58 | 2b 42 3a 49 46 20 58 3e |.360 X=X|+B:IF X>|
|00000610| 32 35 35 20 54 48 45 4e | 20 59 3d 59 2b 31 3a 58 |255 THEN| Y=Y+1:X|
|00000620| 3d 58 2d 32 35 36 0d 33 | 37 30 20 57 3d 41 53 43 |=X-256.3|70 W=ASC|
|00000630| 28 49 4e 50 55 54 24 28 | 31 2c 31 29 29 2d 33 32 |(INPUT$(|1,1))-32|
|00000640| 3a 49 46 20 57 3c 30 20 | 54 48 45 4e 20 35 30 30 |:IF W<0 |THEN 500|
|00000650| 0d 33 38 30 20 49 46 20 | 57 3d 30 20 54 48 45 4e |.380 IF |W=0 THEN|
|00000660| 20 33 35 30 0d 33 39 30 | 20 4a 3d 57 2b 58 2d 31 | 350.390| J=W+X-1|
|00000670| 0d 34 30 30 20 49 46 20 | 4a 3e 32 35 35 20 54 48 |.400 IF |J>255 TH|
|00000680| 45 4e 20 34 34 30 09 00 | 31 30 20 4c 49 4e 45 28 |EN 440..|10 LINE(|
|00000690| 58 2c 59 29 2d 28 4a 2c | 59 29 3a 52 45 4d 20 20 |X,Y)-(J,|Y):REM  |
|000006a0| 20 20 20 20 20 20 20 59 | 4f 55 20 4d 41 59 20 48 |       Y|OU MAY H|
|000006b0| 41 56 45 20 54 4f 20 43 | 48 41 4e 47 45 20 54 48 |AVE TO C|HANGE TH|
|000006c0| 49 53 20 4c 49 4e 45 0d | 34 32 30 20 58 3d 58 2b |IS LINE.|420 X=X+|
|000006d0| 57 0d 34 33 30 20 47 4f | 54 4f 20 33 35 30 0d 34 |W.430 GO|TO 350.4|
|000006e0| 34 30 20 4c 49 4e 45 28 | 58 2c 59 29 2d 28 32 35 |40 LINE(|X,Y)-(25|
|000006f0| 35 2c 59 29 3a 52 45 4d | 20 20 20 20 20 20 20 59 |5,Y):REM|       Y|
|00000700| 4f 55 20 4d 41 59 20 48 | 41 56 45 20 54 4f 20 43 |OU MAY H|AVE TO C|
|00000710| 48 41 4e 47 45 20 54 48 | 49 53 20 4c 49 4e 45 0d |HANGE TH|IS LINE.|
|00000720| 34 35 30 20 49 3d 59 2b | 31 0d 34 36 30 20 4a 3d |450 I=Y+|1.460 J=|
|00000730| 4a 2d 32 35 36 0d 34 37 | 30 20 4c 49 4e 45 28 30 |J-256.47|0 LINE(0|
|00000740| 2c 49 29 2d 28 4a 2c 49 | 29 3a 52 45 4d 20 20 20 |,I)-(J,I|):REM   |
|00000750| 20 20 20 20 20 20 59 4f | 55 20 4d 41 59 20 48 41 |      YO|U MAY HA|
|00000760| 56 45 20 54 4f 20 43 48 | 41 4e 47 45 20 54 48 49 |VE TO CH|ANGE THI|
|00000770| 53 20 4c 49 4e 45 0d 34 | 38 30 20 58 3d 58 2b 57 |S LINE.4|80 X=X+W|
|00000780| 0d 34 39 30 20 47 4f 54 | 4f 20 33 35 30 0d 35 30 |.490 GOT|O 350.50|
|00000790| 30 20 47 4f 54 4f 20 35 | 30 30 0d 0d 50 72 65 73 |0 GOTO 5|00..Pres|
|000007a0| 73 20 3c 43 52 3e 20 74 | 6f 20 63 6f 6e 74 69 6e |s <CR> t|o contin|
|000007b0| 75 65 3a 20             |                         |ue:     |        |
+--------+-------------------------+-------------------------+--------+--------+